home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy: Best of 1985
/
Ahoy_Best_of_1985_1986_Double_L.d64
/
salmon run m'85
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
10KB
|
168 lines
30 poke56,48:poke52,48:clr
35 ifpeek(16375)=8then700
38 print"[147]preparing machine language..."
40 poke53265,27:poke56334,peek(56334)and254:poke1,peek(1)and251:fori=.to79
42 poke14720+i,peek(53632+i):next:poke1,peek(1)or4:poke56334,peek(56334)or1
44 fori=53104to53151:pokei,1:next
45 i=.:z=.
46 reada:ifa<0then48
47 poke49152+i,a:z=z+a:i=i+1:goto46
48 ifz<>160018thenprint"error in code data":stop
49 i=.:z=.
50 reada:ifa<0then52
51 poke53152+i,a:z=z+a:i=i+1:goto50
52 ifz<>4625thenprint"error in variable data":stop
53 i=.:z=.
54 reada:ifa<0then56
55 poke14336+i,a:z=z+a:i=i+1:goto54
56 ifz<>55366thenprint"error in character data":stop
57 i=.:z=.
58 reada:ifa<0then60
59 poke15936+i,a:z=z+a:i=i+1:goto58
60 ifz<>25190thenprint"error in sprite data":stop
62 goto700
100 rem*****set-up playfield*****
105 poke53265,11
110 print"[147]":poke53280,5:poke53281,3:poke53269,.:poke53270,peek(53270)or16
120 poke53272,30:poke53275,.:poke53276,3:poke53282,1:poke53283,.:poke53285,1
130 poke53286,.:poke53287,6:poke53288,11
140 fori=56136to56295:pokei,14:next:fori=55656to55659:pokei,14:pokei+40,14:next
150 fori=55692to55695:pokei,8:pokei+40,8:next
160 poke1234,36:poke1235,37:poke1274,38:poke1275,39:poke55506,1:poke55507,1
170 poke55546,1:poke55547,1:poke1211,36:poke1212,37:poke1251,38:poke1252,39
180 poke55483,1:poke55484,1:poke55523,1:poke55524,1
190 fori=1384to1387:pokei,i-1363:next:fori=1424to1426:pokei,i-1399:next
200 fori=1420to1423:pokei,i-1392:next:fori=1461to1463:pokei,i-1428:next
210 fori=1864to1882:pokei,40:pokei+40,40:pokei+80,40:next
220 fori=1984to2023:pokei,40:next
230 poke52992,140:poke52993,140:poke52994,96:poke52995,240:poke52996,.
240 poke52997,.:z=peek(53278):fori=53072to53103:pokei,.:next:poke53036,.
250 poke53269,3:poke53037,.
260 poke53211,255:poke53212,255:poke53213,12:poke54296,79:poke54294,55
270 poke54295,129:poke54277,128:poke54278,240:poke54276,129:poke54273,255
280 poke54284,128:poke54285,240:poke54283,17:poke1025,48:poke1026,48:poke1061,48
290 poke1062,48:poke55297,6:poke55298,6:poke55333,.:poke55334,.:poke53044,.
300 poke53045,.:poke53265,27
500 sys50237
510 print"[147]":poke53272,21:fori=54272to54296:pokei,.:next:poke53281,6
515 l=peek(53044):r=peek(53045):poke53269,.
520 ifl>hsthenhs=l
522 ifr>hsthenhs=r
525 ifl>rthenprinttab(08)"the left (blue) player won!":goto535
527 ifl<rthenprinttab(08)"the right (black) player won!":goto535
530 printtab(16)"it's a tie!"
535 printtab(15)"left score="l:printtab(14)"right score="r
540 fori=1to5000:next
700 poke53280,5:poke53281,3:print"[147]":printtab(15)"[144]salmon run"
705 printtab(19)"by":printtab(15)"mike wacker":print"high score= "hs
707 printtab(12)"press f1 to play"
710 poke53248,174:poke53249,210:poke53264,.:poke53269,1:poke53287,6:x(3)=253
712 poke53276,1:poke53285,1:poke53286,.:a=10:b=.:x(.)=254:x(1)=253:x(2)=252
714 getz$:if z$="" then 714
716 if z$="[133]" then 100
718 a=10:b=b+1:ifb=4thenb=.
720 poke2040,x(b):goto714
999 rem****code data****
1000 data133,169,134,140,132,141,166,169,202,16,2,166,169,198,139,208,247,173
1002 data18,208,133,139,138,72,166,140,164,141,104,96,254,14,207,208,3,254,17
1004 data207,189,17,207,240,21,189,14,207,201,88,208,14,169,.,157,84,207,173
1006 data21,208,61,172,207,141,21,208,96,173,4,207,141,46,207,173,.,208,141,47
1008 data207,173,1,208,141,48,207,208,18,173,5,207,141,46,207,173,2,208,141,47
1010 data207,173,3,208,141,48,207,173,46,207,221,17,207,208,17,173,47,207,56,253
1012 data14,207,176,2,73,255,201,24,176,36,144,31,173,46,207,208,11,173,47,207
1014 data56,253,14,207,144,20,176,9,189,14,207,56,237,47,207,144,9,73,255,201
1016 data24,176,3,169,1,96,169,.,96,206,49,207,208,59,206,128,207,208,54,169
1018 data4,141,128,207,206,129,207,173,129,207,106,162,2,176,17,189,187,207,32
1020 data45,196,189,190,207,157,131,7,189,193,207,208,15,189,196,207,32,54,196
1022 data189,199,207,157,131,7,189,202,207,157,171,7,202,16,216,206,130,207,240
1024 data1,96,169,160,32,182,196,173,87,207,240,16,169,.,141,87,207,141,51,207
1026 data169,7,141,50,207,141,89,207,173,89,207,240,35,206,50,207,16,7,169,.,141
1028 data89,207,240,16,174,50,207,173,51,207,208,5,189,205,207,208,3,189,212,207
1030 data141,7,212,141,8,212,96,173,88,207,240,250,169,.,141,88,207,169,1,208
1032 data191,162,1,222,112,207,240,3,76,36,194,189,80,207,208,11,189,82,207,208
1034 data3,169,48,44,169,88,44,169,18,157,112,207,189,80,207,240,20,189,.,207
1036 data201,197,208,7,169,.,157,80,207,240,6,254,.,207,76,246,193,188,.,220
1038 data152,41,1,208,10,189,.,207,201,69,240,3,222,.,207,152,41,2,208,10,189
1040 data.,207,201,197,240,3,254,.,207,152,41,4,208,25,189,4,207,208,7,189,2,207
1042 data201,24,240,13,222,2,207,189,2,207,201,255,208,3,222,4,207,152,41,8,208
1044 data20,189,4,207,240,7,189,2,207,201,64,240,8,254,2,207,208,3,254,4,207,152
1046 data41,16,208,10,189,.,207,201,102,176,3,157,80,207,222,114,207,208,15,169
1048 data8,157,114,207,222,116,207,16,5,169,3,157,116,207,188,116,207,189,80,207
1050 data240,4,169,255,208,3,185,160,207,157,248,7,138,10,168,189,2,207,153,.
1052 data208,189,.,207,153,1,208,172,16,208,189,4,207,240,6,152,29,164,207,208
1054 data4,152,61,166,207,141,16,208,202,48,3,76,61,193,96,162,2,189,84,207,208
1056 data56,206,7,207,240,3,76,31,196,206,118,207,208,248,169,13,141,118,207,157
1058 data84,207,169,.,157,8,207,157,11,207,157,14,207,157,17,207,169,218,157,20
1060 data207,169,5,32,.,192,157,23,207,169,1,32,.,192,157,26,207,222,119,207
1062 data208,200,234,234,234,234,234,234,189,11,207,240,75,169,64,157,119,207
1064 data189,29,207,240,13,222,32,207,208,54,169,.,157,29,207,157,35,207,189,35
1066 data207,240,18,222,20,207,222,38,207,208,33,169,5,157,29,207,157,32,207,208
1068 data23,32,38,196,32,164,196,208,11,192,218,208,11,169,.,157,11,207,240,4
1070 data192,235,240,245,32,30,192,76,85,195,189,8,207,240,89,169,32,157,119,207
1072 data189,41,207,10,168,185,.,208,157,14,207,185,1,208,24,105,13,157,20,207
1074 data188,41,207,185,4,207,157,17,207,189,14,207,217,168,207,208,44,189,17
1076 data207,217,170,207,208,36,189,20,207,201,109,176,29,141,87,207,169,.,153
1078 data82,207,157,84,207,173,21,208,61,172,207,141,21,208,189,26,207,24,105
1080 data1,153,44,207,76,85,195,169,64,157,119,207,189,14,207,201,160,208,21,234
1082 data234,234,169,.,157,29,207,169,40,157,38,207,157,11,207,157,35,207,208
1084 data14,173,18,208,201,37,176,7,169,7,32,.,192,240,224,32,30,192,189,84,207
1086 data208,3,76,31,196,173,6,207,61,175,207,240,69,173,6,207,41,1,240,41,173
1088 data80,207,240,36,32,65,192,240,31,169,.,157,41,207,168,189,23,207,208,5
1090 data169,1,153,82,207,169,.,157,11,207,169,1,157,8,207,141,88,207,208,21,173
1092 data6,207,41,2,240,14,173,81,207,240,9,32,85,192,240,4,169,1,208,206,222
1094 data122,207,208,13,169,10,157,122,207,189,125,207,73,1,157,125,207,188,125
1096 data207,189,11,207,208,5,189,8,207,240,5,185,178,207,208,13,189,26,207,208
1098 data5,185,180,207,208,3,185,182,207,157,250,7,173,21,208,29,175,207,141,21
1100 data208,189,23,207,208,3,169,.,44,169,1,157,41,208,169,208,133,252,189,184
1102 data207,133,251,189,14,207,160,.,145,251,200,189,20,207,145,251,172,16,208
1104 data189,17,207,240,6,152,29,175,207,208,4,152,61,172,207,141,16,208,202,48
1106 data3,76,45,194,96,254,20,207,188,20,207,96,157,91,7,169,19,141,174,7,96
1108 data157,91,7,169,20,208,245,32,165,192,32,43,194,32,59,193,172,44,207,240
1110 data34,169,.,141,44,207,152,24,109,52,207,141,52,207,238,2,4,173,2,4,201,58
1112 data208,8,169,48,141,2,4,238,1,4,136,208,235,172,45,207,240,34,169,.,141,45
1114 data207,152,24,109,53,207,141,53,207,238,38,4,173,38,4,201,58,208,8,169,48
1116 data141,38,4,238,37,4,136,208,235,206,219,207,208,164,206,220,207,208,159
1118 data206,221,207,208,154,96,189,17,207,208,12,189,14,207,201,160,176,3,169
1120 data.,44,169,1,96,141,130,207,173,30,208,141,6,207,96,-1
1122 rem****variables****
1124 data252,253,254,253,1,2,254,253,24,64,.,1,251,247,239,4,8,16,250,251,250
1126 data250,249,249,4,6,8,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,32,30
1128 data27,23,18,12,5,6,13,19,24,28,31,33,112,142,6,-1
1130 rem****programable characters****
1132 data.,.,.,.,.,.,.,.,255,223,247,247,247,255,127,255,192,252,255,223,245,255
1134 data255,255,.,.,.,.,.,64,192,192,247,253,255,253,245,247,247,253,255,247
1136 data253,253,255,127,255,127,192,240,240,192,64,65,116,240,223,255,127,255
1138 data223,247,253,253,255,223,213,127,223,223,215,247,240,240,252,252,223,247
1140 data247,255,255,95,247,253,255,223,247,253,192,252,255,255,255,255,255,255
1142 data.,.,.,.,64,208,192,192,247,247,253,255,255,255,253,253,223,223,127,223
1144 data247,255,255,255,80,244,241,192,192,192,240,240,255,127,127,221,221,223
1146 data223,223,127,223,255,255,255,127,223,255,240,241,84,124,221,255,247,255
1148 data20,64,64,68,17,64,1,20,16,64,1,84,.,80,5,64,63,253,250,255,255,253,63
1150 data15,239,255,119,239,111,239,255,255,255,223,175,235,250,95,255,255,112
1152 data212,252,252,252,252,240,192,.,.,.,3,15,63,255,255,15,63,255,255,255,240
1154 data192,.,.,192,192,192,.,.,.,.,63,253,250,255,255,253,63,15,247,255,238
1156 data247,246,247,255,255,255,251,245,215,95,250,255,255,112,212,252,252,252
1158 data252,240,192,.,.,.,.,.,.,.,.,.,3,3,3,.,.,.,.,240,252,255,255,255,15,3,.
1160 data.,.,.,192,240,252,255,255,252,254,255,126,31,30,28,127,.,.,192,240
1162 data248,252,252,252,255,253,127,31,3,3,.,.,190,254,252,248,224,.,.,.,255
1164 data255,255,255,255,255,255,255,-1
1166 rem****sprite data****
1168 data.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,16,127,224,25,255,248,27,255
1170 data24,31,255,24,31,255,248,27,255,248,25,255,248,16,127,224,.,.,.,.,.,.,.
1172 data.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.
1174 data4,127,128,6,254,96,7,254,96,7,255,224,6,255,224,4,127,128,.,.,.,.,.,.
1176 data.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.
1178 data.,.,.,.,8,124,.,12,255,128,7,254,96,7,254,96,6,255,224,2,127,224,.,3,128
1180 data.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,40,.,.
1182 data166,.,130,42,2,160,10,10,160,8,10,170,40,170,170,170,170,170,170,170
1184 data170,170,170,42,170,168,42,187,168,40,179,40,.,51,.,.,51,.,.,192,192,.
1186 data192,192,3,51,48,.,.,.,.,.,.,.,.,.,.,.,.,.,.,40,.,.,166,.,2,42,.,.,10,.
1188 data.,8,.,10,40,160,42,170,168,42,170,168,170,170,170,170,170,170,170,187
1190 data170,40,179,40,40,51,40,.,51,.,.,192,192,.,192,192,3,51,48,.,.,.,.,.
1192 data.,.,.,.,.,.,.,.,.,40,.,.,166,.,2,42,.,.,10,.,.,8,.,10,40,160,42,170
1194 data168,42,170,168,42,170,168,42,170,168,170,187,170,168,179,42,168,51,42
1196 data160,51,10,128,192,194,.,192,192,3,51,48,.,128,192,194,128,51,2,128,51
1198 data2,160,51,10,168,51,42,168,179,42,170,187,170,42,170,168,42,170,168,42
1200 data170,168,42,170,168,10,40,160,.,8,.,.,10,.
1202 data.,42,.,.,38,.,.,42,.,.,8,.,.,8,.,.,.,.,.,.,.,.,-1